home *** CD-ROM | disk | FTP | other *** search
/ How to Get Online 1996 Spring / HOW2GON.ISO / mac / HTML / I-Diary v2.0 / I-Diary 68K / I-Diary 68K / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1996-02-02  |  17.3 KB  |  45 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>22</cardCount>
  7.     <cardID>2899</cardID>
  8.     <listID>3904</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>640</width>
  14.         <height>436</height>
  15.     </cardSize>
  16.     <script>on quitdoMenu "Compact Stack"end quitfunction EquiChars CarattereVARput empty into RitornoVARif charToNum (CarattereVAR) > 127 then--- Controllo i caratteri da 128 in poiget charToNum (CarattereVAR)put it into CarattereVARif CarattereVAR is "136" thenput "&#224;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "143" thenput "&#232;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "142" thenput "&#233;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "147" thenput "&#236;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "152" thenput "&#242;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "157" thenput "&#249;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "165" thenput "&#128;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "170" thenput "&#129;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "186" thenput "&#134;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "189" thenput "&#135;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "209" thenput "&#139;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "212" thenput "&#140;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "217" thenput "&#141;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "218" thenput "&#142;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "206" thenput "&#145;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "226" thenput "&#146;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "227" thenput "&#147;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "228" thenput "&#148;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "240" thenput "&#149;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "246" thenput "&#150;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "247" thenput "&#151;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "249" thenput "&#152;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "250" thenput "&#153;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "251" thenput "&#154;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "253" thenput "&#155;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "255" thenput "&#157;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "196" thenput "&#159;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "202" thenput "&#160;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "193" thenput "&#161;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "162" thenput "&#162;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "163" thenput "&#163;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "219" thenput "&#164;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "180" thenput "&#165;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "207" thenput "&#166;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "164" thenput "&#167;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "172" thenput "&#168;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "169" thenput "&#169;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "187" thenput "&#170;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "199" thenput "&#171;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "194" thenput "&#172;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "208" thenput "&#173;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "168" thenput "&#174;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "248" thenput "&#175;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "161" thenput "&#176;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "177" thenput "&#177;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "211" thenput "&#178;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "210" thenput "&#179;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "171" thenput "&#180;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "181" thenput "&#181;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "166" thenput "&#182;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "225" thenput "&#183;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "252" thenput "&#184;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "213" thenput "&#185;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "188" thenput "&#186;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "200" thenput "&#187;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "185" thenput "&#188;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "184" thenput "&#189;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "178" thenput "&#190;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "192" thenput "&#191;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "203" thenput "&#192;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "231" thenput "&#193;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "229" thenput "&#194;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "204" thenput "&#195;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "128" thenput "&#196;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "129" thenput "&#197;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "174" thenput "&#198;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "130" thenput "&#199;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "233" thenput "&#200;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "131" thenput "&#201;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "230" thenput "&#202;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "232" thenput "&#203;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "237" thenput "&#204;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "234" thenput "&#205;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "235" thenput "&#206;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "236" thenput "&#207;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "220" thenput "&#208;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "132" thenput "&#209;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "241" thenput "&#210;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "238" thenput "&#211;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "239" thenput "&#212;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "205" thenput "&#213;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "133" thenput "&#214;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "215" thenput "&#215;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "175" thenput "&#216;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "244" thenput "&#217;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "242" thenput "&#218;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "243" thenput "&#219;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "134" thenput "&#220;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "0" thenput "&#221;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "222" thenput "&#222;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "167" thenput "&#223;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "135" thenput "&#225;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "137" thenput "&#226;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "139" thenput "&#227;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "138" thenput "&#228;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "140" thenput "&#229;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "190" thenput "&#230;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "141" thenput "&#231;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "144" thenput "&#234;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "145" thenput "&#235;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "146" thenput "&#237;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "148" thenput "&#238;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "149" thenput "&#239;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "221" thenput "&#240;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "150" thenput "&#241;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "151" thenput "&#243;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "153" thenput "&#244;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "155" thenput "&#245;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "154" thenput "&#246;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "214" thenput "&#247;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "191" thenput "&#248;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "156" thenput "&#250;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "158" thenput "&#251;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "159" thenput "&#252;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "224" thenput "&#253;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "223" thenput "&#254;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "216" thenput "&#255;" into RitornoVARreturn RitornoVARexit EquiCharsend ifelse--- Controllo i caratteri al di sotto dei 128if CarattereVAR is "&" thenput "&#38;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is "<" thenput "&#60;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif CarattereVAR is ">" thenput "&#62;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif charToNum (CarattereVAR) = 34 thenput "&#34;" into RitornoVARreturn RitornoVARexit EquiCharsend ifif RitornoVAR is empty thenput CarattereVAR into RitornoVARreturn RitornoVARexit EquiCharsend ifend ifend EquiCharsfunction faiAncora NomeFileVAR, NomePulsanteVARput numToChar (34) into VirgVARput "<A HREF = " & VirgVAR & NomeFileVAR & VirgVAR & ">" & NomePulsanteVAR & "</A>" into QZERTYreturn QZERTYend faiAncorafunction Traduci DaTradurreput empty into TradottoVARrepeat with QAW = 1 to the length of DaTradurreset the cursor to busyput char 1 of DaTradurre into CDTput EquiChars (CDT) after TradottoVARdelete char 1 of DaTradurreend repeatreturn TradottoVARend Traducifunction faiFileNome NomeFileVARput char 8 to ((the length of the long name of this stack) - ((the length of the short name of this stack) + 1)) of the long name of this stack¬¨& "I-Diary Folder:" & NomeFileVAR into RitornoVARreturn RitornoVARend faiFileNomeon openStackset the userLevel to 2set textArrows to truelock recentdisable menuItem "Message" of menu "Go"disable menuItem "Find..." of menu "Go"if bg fld 2 of cd 1 of bg 1 is empty and bg fld 3 of cd 1 of bg 1 is empty thenChiediRegend ifend openStackon ChiediReganswer "This is an UNREGISTERED VERSION of McNEWS Reader. Please if you use it, PAY SHAREWARE FEE." with "Not yet" or "Register"if it is "Register" thenFaiRegistraelserepeat with QAW = 20 down to 1put "Wait for " & QAW & " seconds" into bg fld 4 of cd 1 of bg 1wait for 1 secondsend repeatput "U N R E G I S T E R E D" & Return & "V E R S I O N" into bg fld 4 of cd 1 of bg 1end ifend ChiediRegon FaiRegistraask "Tell me your Registration Name"if it is not empty thenput it into RegNomeask "Tell me your Registration Code"if it is not empty thenput it into RegCodiceput the number of characters of RegNome into NumChRnput 0 into ContCodexput 0 into CONTATOREput empty into MOLTIPLIput RegNome into NameRegsrepeatif the length of NameRegs = 0 thenexit repeatend ifadd 1.6789 to CONTATOREput the CharToNum of NameRegs into itput it*CONTATORE into MOLTIPLIadd MOLTIPLI to ContCodexdelete char 1 of NameRegsend repeatget ContCodexput round (it*NumChRn*2.9876) into ContCodexif ContCodex = RegCodice thenput RegNome into bg fld 2 of cd 1 of bg 1put RegCodice into bg fld 3 of cd 1 of bg 1put "Registered to:" & Return & RegNome into bg fld 4 of cd 1 of bg 1elseAnswer "This is not the registration code."ChiediRegend ifelseChiediRegend ifelseChiediRegend ifend FaiRegistra</script>
  17.     <background id="2247" file="background_2247.xml" name="" />
  18.     <background id="2615" file="background_2615.xml" name="" />
  19.     <background id="4851" file="background_4851.xml" name="" />
  20.     <background id="5456" file="background_5456.xml" name="" />
  21.     <background id="6886" file="background_6886.xml" name="" />
  22.     <card id="2899" file="card_2899.xml" marked="false" name="" owner="2615" />
  23.     <card id="2552" file="card_2552.xml" marked="false" name="" owner="2247" />
  24.     <card id="4938" file="card_4938.xml" marked="false" name="" owner="4851" />
  25.     <card id="7438" file="card_7438.xml" marked="false" name="" owner="4851" />
  26.     <card id="7793" file="card_7793.xml" marked="false" name="" owner="4851" />
  27.     <card id="6460" file="card_6460.xml" marked="false" name="" owner="4851" />
  28.     <card id="6103" file="card_6103.xml" marked="false" name="" owner="4851" />
  29.     <card id="16911" file="card_16911.xml" marked="false" name="" owner="5456" />
  30.     <card id="7146" file="card_7146.xml" marked="false" name="" owner="6886" />
  31.     <card id="9190" file="card_9190.xml" marked="false" name="" owner="6886" />
  32.     <card id="12343" file="card_12343.xml" marked="false" name="" owner="6886" />
  33.     <card id="12196" file="card_12196.xml" marked="false" name="" owner="6886" />
  34.     <card id="16112" file="card_16112.xml" marked="false" name="" owner="6886" />
  35.     <card id="15602" file="card_15602.xml" marked="false" name="" owner="6886" />
  36.     <card id="3626" file="card_3626.xml" marked="false" name="" owner="6886" />
  37.     <card id="10502" file="card_10502.xml" marked="false" name="" owner="6886" />
  38.     <card id="11193" file="card_11193.xml" marked="false" name="" owner="6886" />
  39.     <card id="11910" file="card_11910.xml" marked="false" name="" owner="6886" />
  40.     <card id="8561" file="card_8561.xml" marked="false" name="" owner="6886" />
  41.     <card id="11460" file="card_11460.xml" marked="false" name="" owner="6886" />
  42.     <card id="15631" file="card_15631.xml" marked="false" name="" owner="6886" />
  43.     <card id="11686" file="card_11686.xml" marked="false" name="" owner="6886" />
  44. </stack>
  45.